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I, INTRODUCTION, 

► u 

6502F0*TH IS A UNIQUE THREADED LANGUAGE THAT IS IDEALLY SUITED FOR 
MICROPROCESSOR SYSTEMS. PROGRAMS WRITTEN IN 6502FORTH ARE COMPACT; I.E. 
IN 6K TO 8K BYTE St THE USER MAY HAVE THE INTERACTIVE 6502FORTH 
COMPILER/INTERPRETER RUNNING STAND-ALONE USING THE SYSTEM'S MONITOR FOR 
I/O, AND OTHER RUN-TIME ROUTINES, PLUS AN INCREMENTAL ASSEMBLER, 
CASSETTE MEMORY SOFTWARE, AND A TEXT EDITOR. NOT ONLY DOES ALL OF THIS 
FIT INTO THE *K TO 6K BYTES I BOX OF WHICH IS WRITTEN IN 6502FORTH), BUT 
ALSO, IT RUNS IN THE SAME SPACE WITH NO ADDITIONAL SYMBOL TABLE AREA, 
OVERLAYS, SWAPPING, OR USE OF ANY OTHER SOFTWARE. 

WHILE 6502FORTH GIVES ALL OF THE CONVENIENCES OF INTERACTIVE 
INTERPRETERS, IT IS ALSO VERY FAST. FOR MOST APPLICATIONS, THE RUN-TIME 
OVERHEAD IS 70 TO 100 PERCENT FOR MICROCOMPUTERS, AS COMPARED TO 1000 
PERCENT OR MORE WHICH IS COMMON FOR INTERPRETERS SUCH AS BASIC. NUMBER 
CRUNCHING APPLICATIONS IN 6502FORTH MAY TAKE MUCH LONGER; HOWEVER, IF 
6502F0RTH IS NOT FAST ENOUGH, THE USER MAY CHOOSE TO USE THE SYSTEM'S 
OWN ASSEMBLER TO RE-COOE INNER LOOPS. 

ONE OF THE BEST ADVANTAGES OF 6502F0RTH OVER OTHER PROGRAMMING LANGUAGES 
IS THAT SOFTWARE DEVELOPMENT TIMES ARE CUT IN HALF OR MUCH MORE OVER 
ASSEMBLY LANGUAGE PROGRAMMING. THE PROGRAMMING IN 6502F0RTH IS ENTIRELY 
DONE IN A STRUCTURED MANNER (THERE IS NO GOTO), AND THE RESULTING CODE 
IS RE-ENTRANT ANO CAN BE DESIGNED FOR PROM. 

THE 6502F0RTH IMPLEMENTATION OF THE FORTH LANGUAGE REQUIRES A MACHINE 
CONFIGURATION THAT CONTAINS BOTH AN INPUT KEYBOARD DEVICE ANO AN OUTPUT 
DISPLAY DEVICE. A RECOMMENDED MEMORY CONFIGURATION IS 16K BYTES., A DISK 
DEVICE IS NICE FOR STORING 6502F0RTH SOURCE PROGRAMS, BUT THE AUDIO 
CASSETTE RECORDER (OR SIMILAR SEQUENTIAL UNIT) SUFFICES TO SIMULATE THE 
VIRTUAL MEMORY STORAGE OF SOURCE PROGRAMS. 6502F0RTH WORKS WELL WITH A 
CRT VIDEO OISPLAY UNIT, SO HARD COPY IS NOT NECESSARY. 

THE FORTH LANGUAGE HAS EXISTED FOR SEVERAL YEARS, AND IS USED 
COMMERCIALLY IN A NUMBER OF INSTALLATIONS. UNTIL RECENTLY, IT HAS BEEN 
PRICED FAR OUT OF THE REACH OF THE AMATEUR HOBBYIST. MOST COMPUTER 
PROFESSIONALS HAVE NEVER HEARD OF IT. THE FORTH LANGUAGE, HOWEVER, IS IN 
THE PUBLIC OOMAIN, AND 6502F0RTH IS THE FIRST IMPLEMENTATION ON THE 6502 
MICROPROCESSOR UNIT. 

THE ORIGINAL FORTH LANGUAGE WAS FIRST DEVELOPED BY CHARLES H. MOORE AT 
THE NATIONAL RADIO ASTRONOMY OBSERVATORY UNDER CONTRACT WITH THE 
NATIONAL SCIENCE FOUNDATION. A PAPER IN THE JOURNAL OF ASTRONOMY AND 
ASTROPHYSICS SUPPLEMENT C 197^, 15, 497-511) TITLED "FORTH: A NEW way to 
PROGRAM A MINI-COMPUTER", BY CHARLES H. MOORE, DESCRIBES THE ORIGINAL 
SPECIFICATIONS AND DESCRIPTION OF THE FORTH LANGUAGE. 
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2. OVERVIEW. 

THE B4SIC ELEMENT OF THE 6502FORTH SYSTEM IS TERMED A "WORD'S WHICH IS 
ROUGHLY COMPARABLE TO A SUBROUTINE. A 6502FORTH WORD, WHEN REFERENCED 
(OR EXECUTED), CAUSES AN ACTION OR SEQUENCE OF ACTIONS TO BE PERFORMED. 
THEREFORE, WHEN A WORD IS EXECUTED, A SUBROUTINE IS CALLED AND THE 
VARIOUS ACTIONS INDICATED BY THE SUBROUTINE OCCUR. BEFORE A WORD CAN BE 
EXECUTED, IT MUST HAVE BEEN PREVIOUSLY DEFINED AND STORED IN THE 
6502FORTH "DICTIONARY". THE DICTIONARY IS A LINKED LIST OF WORDS 
TOGETHER WITH THEIR MEANINGS OR ACTIONS. THE ACTIONS MAY BE EXPRESSED AS 
MACHINE-LANGUAGE INSTRUCTIONS OR AS A SEQUENCE OF OTHER WORDS. THE 
6502F0RTH DICTIONARY INITIALLY CONTAINS AROUND 200 WORDS, WHICH ARE 
REFERRED TO AS THE "STANDARD VOCABULARY". SOME OF THESE WORDS CAN BE 
USED T3 OEFINE NEW WORDS. WRITING A 6502F0RTH SOURCE PROGRAM CONSISTS OF 
DEFINING A SERIES OF NEW WORDS IN TERMS OF THE OLD DEFINITIONS. 

A 6502F0RTH USER AT THE KEYBOARD TERMINAL MAY TYPE WORDS INTO THE 
COMPUTER. ANY SEQUENCE OF CHARACTERS MAY BE USED TO DEFINE A WORD. THE 
ONLY RESERVED CHARACTERS ARE THOSE THAT HAVE SPECIAL MEANING FOR THE 
MACHINE ENVIRONMENT THAT'S BEING USED. OTHERWISE, ANY COMBINATION OF 
LETTERS, NUMBERS, AND SPECIAL CHARACTERS CAN BE USEO IN DEFINING THE 
NAME OF A 6502F0RTH WORD. A WORD MUST BE SEPARATED FROM OTHER WORDS BY A 
DELIMITER CHARACTER. THE DELIMITER CHARACTER IS NORMALLY A SPACE OR 
PLANK. INPUT FROM THE KEYBOARD TERMINAL IS "BUFFERED" BY THE 6502F0RTH 
SYSTEM, A NO CONTROL PASSES TO THE SYSTEM FOR EXECUTION WHEN THE 
"CARRIAGE RETURN" KEY IS DEPRESSED. FOR EXAMPLE, THE INPUT STREAM: 

7 3 ♦ . CR 

WILL CAUSE THE NUMBERS 7 AND 3 TO BE ADDED TOGETHER AND A RESULT OF A 
(ASSUMING BASE 16) TO BE PRINTED ON THE OUTPUT DEVICE. THE 6502FORTH 

"SYSTEM WILL" THEN DO A "CARRIAGE RETURN" AND "LINE FEED" AND PROCEED TO 
PROMPT THE USER FOR FURTHER INPUT. 

IN ORDER TO CONSERVE COMPUTER MEMORY, NOT ALL OF THE CHARACTERS IN A 
NAME ARE STORED, IN THE 6502FORTH IMPLEMENTATION, A NAME IS RECOGNIZED 
ON THE BASIS OF THE FIRST FOUR (4J CHARACTERS. 

REVERSE POLISH NOTATION ( RPNJ AND LAST-IN FIRST-OUT STACKS (LlFO), SUCH 
AS TH3SE USED IN HEWLETT-PACKARD CALCULATORS, ARE US ED IN THE 6502F0RTH 
SYSTEM. THEREFORE, TO FURTHER EXPLAIN THE PREVIOUS EXAMPLE IN DETA IL - 
THE NUMBER 7 WAS PUSHED ONTO THE STACK, AND IT WAS FOLLOWED BY THE 
NUMBER 3, BOTH NUMBERS WERE THEN ADDED TOGETHER AND "POPPED" OFF THE 
STACK BY THE PREVIOUSLY DEFINED WORD "«■"• THE RESULT OF 10 IS "PUSHED" 
ONTO THE STACK BY THE "♦" OPERATION ALSO. THE WORD ". " THEN "POPS" THE 
STACK TO ITS INITIAL CONDITION AND PRINTS THE NUMBER 10 ON THE OUTPUT 
L 1ST DEVICE. 

IF A WORD THAT IS TYPED IN THE INPUT STREAM CANNOT BE LOCATED IN THE 
6502F0RTH DICTIONARY, THE SYSTEM ATTEMPTS TO TREAT IT AS A NUMBER. IF 
THIS IS POSSIBLE, THAT IS, IF THE WORD IS ACTUALLY A NJMBER IN THE 
PROPER FORMAT AND BASE, THEN THE NUMBER IS CONVERTED TO BINARY AND HADE 
AVAILABLE FOR FURTHER PROCESSING. IF THE WORD CANNOT BE INTERPRETED AS A 
NUMBER, OR IF CONVERSION IS NOT POSSIBLE, THEN 6502FORTH WILL ISSUE ITS 
STANDARD ERROR "-I- + + ERROR XX", WHERE XX IS THE ERROR CODE. 
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WORDS CAN BE ADDED TO THE 6502FORTH DICTIONARY IN SEVERAL WAYS. AS WITH 
ANY PROGRAMMING LANGUAGE OR NOTATION, THE FASTEST ROUTE TO FLUENCY IS 
THROUGH EXAMPLES AND HANDS-ON USAGE. THEREFORE, IF THE INPUT STREAM 
CONSISTS OFX 

2 VARI VALU 

6502FORTH DEFINES A NEW WORD IN THE DICTIONARY CALLED "VALU", WHICH IS A 
16-BIT (TWO BYTE I VARIABLE, WHOSE VALUE IS PRESET TO "2". REMEMBER THAT 
6502FORTH ONLY LOOKS AT ( AND ONLY REMEMBERS) THE FIRST 4 CHARACTERS OF A 
WORD. THE INPUT STREAM: 

2 VARIABLE VALUE 

WOULD PRODUCE EXACTLY THE SAME RESULTS. CONTINUING WITH THE SAME 
EXAMPLE, THE INPUT STREAM: 

VALU a • 

CAUSES THE ADDRESS OF "VALU" TO BE PUSHED ONTO THE STACK. THE "3" THEN 
REPLACES THE ADDRESS ON THE STACK WITH THE CONTENTS FOUND AT THAT 
ADDRESS. THE ". " CAUSES THE ENTRY ON THE STACK TO BE PRINTED ON THE 
OUTPUT DEVICE, HENCE, A TWO (21 WOULD BE PRINTED ON THE OUTPUT OEVICE. 

WORDS THAT ARE ALREADY IN THE 6502F0RTH DICTIONARY MAY BE USED TO FORM 
OTHER HiV WORDS USING THE "S" WQRQt FOR EXAMPLE? 

: ? a . ; 

THIS INPUT STREAM DEFINES A NEW WORD CALLED "?", WHICH WHEN EXECUTED 
CAUSES THE WORD "a" AND THE WORD ". " TO BE EXECUTED. THE ";" WORD IS THE 
6502FORTH WORD THAT TERMINATES THE DEFINITION MODE. WITH THE ABOVE NEW 
WORD, THE USER CAN NOW INPUT: 

VALU ? 

WHICH WILL CAUSE THE VALUE OF THE VARIABLE "VALU" TO BE PRINTED ON THE 
OUTPUT DEVICE. IN THIS CASE A TWO (21 WCULD BE PRINTED. 

THE W3RDS THAT COMPOSE THE "STANDARD VOCABULARY" ARE LISTED IN THE 
SECTION TITLED "STANDARD VOCABULARY". THE ACTIONS OF THE STANDARD 
VOCABULARY WORDS ARE ALSO EXPLAINED IN THAT SECTION. 

INPUT TO THE 6502F0RTH SYSTEM CAN ALSO CCME FROM A BLOCK BUFFER INSTEAD 
OF THE KEYBOARD. THIS BUFFER NORMALLY CONTAINS ASCII CHARACTERS THAT 
HAVE BEEN PREVIOUSLY STORED ON A MASS STORAGE DEVICE. 
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3, STACKS. 



NUMBERS AND OTHER DATA ARE NORMALLY HANDLED THROUGH THE 6502FORTH 
"NORMAL STACK" (PARAMETER STACK I . THIS IS A "PUSH-DOWN" STACK THAT USES 
THE "LAST-IN FIRST-OUT" (LIFO) TECHNIQUE. A PUSH-DOWN STACK IS A STORAGE 
MANAGEMENT STRUCTURE IN WHICH A ME W DATA ITEM MAY BE STORED (PUSHED) ON 
TOP OF OLDER DATA ITEMS. THE ITEM ON TOP OF THE STACK MAY RE RETRIEVED 
BY "POPPING" THE STACK. 

ONE ADVANTAGE OF A "PUSH-DOWN" STACK IS THAT FIXED STORAGE LOCATIONS IN 
MEMORY NEED NOT BE ASSIGNED FOR TEMPORARY DATA. HENCE, STORAGE IS 
CONSERVEO AND THE PROGRAMMERS "BOOKKEEPING" EFFORT IS REDUCED. 

MOST 6502FORTH WORDS ♦ WHICH OPERATE ON DATA, ACCEPT THEIR DATA FROM THE 
NORMAL STACK, OPERATE ON THEM, AND THEN PUSH THE RESULTS BACK ONTO THE 
STACK. THEREFORE, ARITHMETIC EXPRESSICNS MUST BE SPECIFIED IN "REVERSE 
POLISH NOTATION" (I.E. WITH OPERANDS PRECEEDING OPERATORS). 

6502FORTH USERS HAVE THE OPTION OF SPECIFYING THE LOCATIONS WHERE THE 
DICTIONARY, THE NORMAL STACK, THE RETURN STACK, AND THE BUFFERS ARE TO 
RE LOCATED. A LOGICAL END OF MEMORY CAN BE SET SO THAT THE DICTIONARY 
NEVER EXCEEDS A SPECIFIED LOCATION. IT IS RECOMMENDED THAT THE USER USE 
THE SUGGESTED LOCATIONS FOR EACH OF THE ABOVE AREAS. THE SUGGESTED 
VALUES ARE DESCRIBED IN THE APPENDIX THAT CORRESPONDS TO THE MACHlNF 
CONFIGURATION BEING USED. 

THERE ARE THREE (31 STACKS USED BY THE 6502FORTH SYSTEM. ALL OF THEM USE 
THE LAST-IN FIRST-OUT (LIFO) TECHNIQUE. ASSUMING THE SUGGESTED VALUES 
ARE USED FOR MEMORY ALLOCATION, THE "NORMAL STACK" IS VARIABLE IN LENGTH 
(DEPENDING ON THE RAM SIZE AVAILABLE); AND IT GROWS DOWNWARD TOWARD THE 
FORTH DICTIONARY, WHICH IN TURN GROWS UPWARD. THE FORTH WORD "SP" (STACK 
POINTER) IS A CONSTANT WHICH CONTAINS THE ADDRESS OF THE T3P (CURRENT) 
STACK VALUE. THIS ADDRESS POINTS TO THE LEAST SIGNIFICANT BYTE (LSB) OF 
THE 16-BIT STACK VALUE. 

THE "RETURN STACK" IS VARIABLE IN LENGTH AND ITS MAXIMUM BOUNDARY 
ORIGINATES ON THE SAME LOCATION AS THE NORMAL STACK. THE RETURN STACK 
GROWS TOWARD LOW MEMORY IN THE SAME MANNER AS THE NORMAL STACK. THE 
FORTH WORD "RS" (RETURN STACK) IS A CONSTANT WHICH CONTAINS THE ADDRESS 
OF THE TOP (CURRENT) RETURN STACK VALUE. THIS ADDRESS ALSO POINTS TO THE 
LSB OF THE 16-BIT VALUE. THE RETURN STACK IS USED PRIMARILY BY THE FORTH 
SYSTEM FOR LOOP PROCESSING. 

THE THIRD STACK IS THE "HARDWARE STACK" USED BY THE 6502 MICROPROCESSOR. 
IT IS LOCATED AT LOCATION S01FF , AND IT GROWS DOWNWARD TOWARD LOW 
MEMORY, ITS LOCATION CANNOT BE CHANGED BY THE 6502FORTH USER. THIS STACK 
IS NOT NORMALLY USED BY 6502F0RTH PROGRAMMERS, SO THERE IS NO FORTH WORD 
THAT CONTAINS ITS ADDRESS. 
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4. DICTIONARY. 



THE 6502FORTH DICTIONARY IS A LINKED LIST OF WORDS. THE DICTIONARY 
NORMALLY BEGINS FROM THE END OF THE 6502F0RTH NUCLEUS AND GROWS TOWARD 
HIGH MEMORY THE DICTIONARY CONTAINS ALL OF THE 6502FORTH WORDS 
AVAILABLE TO THE USER. 

THERE ARE THREE 13) GROUPS OF INFORMATION THAT CAN BE FOUND WITHIN EACH 
WORD IN THE DICTIONARY. THE FIRST FOUR BYTES OF ANY DICTIONARY WORD 
CONTAIN THE NAME OF THE WORD IN ASCII CODE. THE MOST SIGNIFICANT BIT OF 
THE FIRST BYTE OF THE WORD MAY BE SET TO ONE (11 TO INDICATE To THE 
6502F0RTH SYSTEM THAT THIS IS AN IMMEDIATE WORD. OF ALL THE DICTIONARY 
WORDS, IMMEDIATES ARE THOSE THAT ARE EXECUTED DIRECTLY WHEN FOUND IN THE 
INPUT STREAM. NAMES ARE CONSIDERED EQUIVALENT IF THEIR FIRST FOUR 
CHARACTERS ARE THE SAME. NAMES THAT HAVE LESS THAN FOUR CHARACTERS ARE 
AUTOMATICALLY PADDED WITH SPACES OR BLANKS. 

THE NEXT TWO BYTES OF A WORD FOLLOWING THE NAME CONTAIN THE ADDRESS OF 
THE FIRST BYTE OF THE PREVIOUS DICTIONARY ENTRY. THESE TWO BYTES ARE 
USED TO LINK THE DICTIONARY. THE LINK ADDRESS OF THE FIRST WORD IN THE 
DICTI3NARY IS SET TO ZERO (0OO0I, AND INDICATES THE BEGINNING OF THE 
DICTIONARY. THIS IS ALSO THE END OF THE CHAIN OF LINKED DICTIONARY 
WORDS, BECAUSE THE DICTIONARY IS SEARCHED BACKWARDS (FROM THE LAST WORD 
ENTERED TO THE FIRST). THESE FIRST SIX BYTES (THE NAME AND THE L INK 
POINTER) ARE COMMONLY REFERRED TO AS THE "HEADER'* • 

THE REMAINING BYTES OF AN ENTRY IN THE DICTIONARY CONSISTS OF MACHINE 
LANGUAGE CODE, WHICH IS REALLY A SUBROUTINE. HENCE, THE WORD IS EXECUTED 
(BY THE FORTH NUCLEUS) BY DOING A JUMP TO SUBROUTINE fJSR) TO THE FIRST 
BYTE OF MACHINE CODE. THE MACHINE LANGUAGE CODE NORMALLY TERMINATES WITH 
A RETURN FROM SUBROUTINE (RTS) INSTRUCTION. 

FOR EXAMPLE: 



ABC PAGE CR 



WILL GENERATE THE FOLLOWING DICTIONARY ENTRY: 



AOORESS 



CONTENTS 



COMMENTS 



1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
100A 
100B 
100C 



$41 
42 
43 
20 
OE 
OB 
20 
00 
OA 
20 
FF 
OB 
60 



"A" 
"B " 



HEADER START 



LSB 
MSB 
JSR 
LSB 
MSB 
JSR 
LSB 
MSB 
RTS 



n n 



PADDING OF A BLANK CHARACTER 
OF LINK TO NEXT WORD HEADER 
OF LINK TO NEXT WORD HEADER 
INSTRUCTION OP CODE 

OF ADDRESS OF CLR WORD SUBROUTINE 
OF AODRESS OF CLR WORD SUBROUTINE 
INSTRUCTION OP CODE 
OF ADDRESS OF CR WORD SUBROUTINE 
OF AODRESS OF CR WORO SUBROUTINE 
INSTRUCTION OP CODE 
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5. blo:k storage. 



MOST PRACTICAL APPLICATIONS OF THE 6502FORTH LANGUAGE REQUIRE AN 
AUXILIARY STORAGE DEVICE. "FLOPPY DISKS" ARE USUALLY PREFERABLE, 
HOWEVER, SEQUENTIAL MAGNETIC TAPE CASSETTES SUFFICE FOR THE AVERAGE 
USER. 

BLOCK STORAGE IS USED AS A "VIRTUAL MEMORY" SCHEME, WHERE ONE MAY STORE 
DATA IN BLOCKS WHEN THERE IS INSUFFICIENT SPACE IN THE COMPUTER'S MAIN 
MEMORY. BLOCKS ARE SUITABLE TO STORE LARGE AMOUNTS OF DATA. NORMALLY, IN 
THE 65D2F0RTH SYSTEM, THIS DATA IS THE SOURCE TEXT, 

BLOCKS ARE USUALLY CALLED "SCREENS", AND ARE NUMBEREO SEQUENTIALLY 
BEGINNING AT ONE CD. TWO LARGE BUFFERS (BUFFER AND BUFFER 1) ARE SET 
ASIDE TO ACT AS THE HOLDING AREAS WHERE ALL TEXT EDITING WILL OCCUR. 
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THE KERNEL (NUCLEUS) OF THE 6502FORTH SYSTEM IS AN ASSEMBLY LANGUAGE 
PROGRAM WHOSE BASIC FUNCTION IS TO PROVIDE THE CAPABILITY OF STARTING 
ANO ADDING NEW WORD ENTRIES TO THE DICTIONARY. SOME OF THE TASKS THAT 
ARE PERFORMED BY THE KERNEL OF THE 6502FORTH SYSTEM ARE: 

t. INITIALIZING THE SYSTEM 

2. BUFFERING THE INPUT FROM THE KEYBOARD 

3. SEARCHING THE DICT I CNARY 

4. CONVERTING ASCII INPUT TO NUMBERS 

5. PARSING THE INPUT BUFFER 

6. EXECUTING WORDS IN THE DICTIONARY 

7. ADDING WORDS TO THE DICTIONARY 

8. CHECKING FOR ERRORS 

THE <ERNEL IS LOCATED AT A FIXED LOCATION IN MEMORY AND IS USUALLY 
FOLLOWED BY THE DICTIONARY. THE DICTIONARY GROWS TOWARD HIGH MEMORY. THE 
KERNEL USES TEMPORARY STORAGE IN PAGE ZERO (01 OF MAIN MEMORY. 
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7. DEFINING NEW WORDS. 



THE DISTRIBUTED 6502FORTH SYSTEM COMES WITH ABOUT 200 WORDS DEFINED IN 
THE DICTIONARY. THESE WORDS PROVIDE THE FUNCTIONS THAT ARE COMMONLY 
NEEDED BY MOST APPLICATION PROGRAMS. PROGRAMMING IN THE 6502F0RTH 
LANGUAGE ACTUALLY CONSISTS OF DEFINING NEW WORDS ♦ WHICH DRAW UPON THE 
EXISTING VOCABULARY, AND WHICH IN TURN MAY BE USED TO DEFINE EVEN MORE 
COMPLEX APPLICATIONS. 

6502FO*TH PROVIDES A NUMBER OF WAYS TO DEFINE NEW WORDS INTO THE 
DICTIONARY. THE LANGUAGE EVEN PROVIDES A FACILITY FOR DEFINING WORDS 
WHOSE FUNCTION IS TO DEFINE WOROS. THERE APE FOUR COMMON WAYS THAT MAY 
8E USED TO DEFINE WORDS USING THE STANDARD SYSTEM. 

THE W0*D (COLON) IS USED TO DEFINE OTHER 6502FORTH WORDS IN TERMS OF 

EXISTING WORDS IN THE DICTIONARY. COLON DEFINITIONS ARE USUALLY MACHINE 
INDEPENDENT SINCE EACH REFERS TO CODE DEFINITIONS OR OTHER COLON 
DEFINITIONS. AN EXAMPLE OF A COLON DEFINITION IS: 

: NEW PAGE 1234 . CR ; 

HERE THE WORD "NEW" IS DEFINED AS A SEQUENCE "PAGE", 1234, " - H » AND 
"CP". THE WORDS ARE ASSUMED TO BE PRESENT IN THE DICTIONARY AT THE TIME 
THE DEFINITION TAKES PLACE. THE NUMBER (1234) WILL CAUSE CODE TO BE 
GENERATED THAT WILL PLACE IT ONTO THE STACK WHEN THE WORD "NEW" IS 
FXFCUTED. SEMICOLON "5" IS A WORD THAT INDICATES THE END OF THE 
DEFINITION. 

THE W3RD " " (UP ARROW) ALLOWS THE USER TO DEFINE WORDS WHOSE ACTIONS 
ARE EXPRESSED DIRECTLY IN MACHINE (ASSEMBLY) LANGUAGE. THE WORDS THAT 
ARE USED AFTER THE UP ARROW ARE DICTIONARY WORDS THAT CAUSE THE BINARY 
MACHINE CODE TO BE ADDED ONTO THE DICTIONARY. THE NAMES OF THESE WORDS 
HAVE BEEN CONVENIENTLY CHOSEN TO CLOSELY RESEMBLE THE MACHINE'S 
ASSEMBLER MNEMONICS. FOR THIS REASON, THE WORDS THAT ARE USED WITHIN THE 
UP.ARROW ARE MACHINE DEPENDENT, BUT THEY GIVE THE PROGRAMMER THE MEANS 
TO~ ACHIEVE MAXIMUM POSSIBLE SPEED OF EXECUTION. THE UP.ARROW IS ONE OF 
SEVERAL WORDS THAT CAN ONLY BE USED WITHIN A »:" AND « DEFINITION, FOR 
EXAMPLE: 

: INY, A 88 LDA, # BA STA, 3# ; 

HEP E THE WORD "INY," IS BEING DEFINED AS A SEQUENCE OF MACHINE 
INSTRU:TIONS AFTER THE UP-ARROW WORD IS DETECTED. IF "INY," WERE USED, 
IT WOULD GENERATE CODE IN THE DICTIONARY TO INCREMENT THE Y REGISTER. 
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CONSTANTS MAY BE DEFINED THROUGH THE WORD '•CONS". FOR EXAMPLE? 

1234 CONS XI 

DEFINES THE 6502F0RTH WORD XI. WHENEVER XI IS EXECUTED, IT WILL PUS H THE 
CONSTANT 1234 ONTO THE STACK. THE USE OF XI I N AN INPUT STREAM WOULD 
CREATE FEWER MACHINE INSTRUCTIONS THAN THE USE OF THE NUMBER 1234. 
HOWEVE*, BOTH METHODS PRODUCE THE SAME RESULTS, 

DATA MAY BE STORED IN NAMED LOCATIONS AS WELL AS ON THE STACK. THE NAMED 
LOCATIDNS ARE IN THE DICTIONARY. THIS IS DONE BY USING THE 6502FORTH 
WORD "VARI". AS AN EXAMPLE: 

1234 VARI X2 

DEFINES THE WORD X2 WHICH IS THE NAME OF AN ADDRESS THAT CONTAINS THE 
INITIAL VALUE OF 1234. WHEN X2 IS EXECUTED, THE ADDRESS OF THE VALUE 
1234 WILL BE PLACED ONTO THE STACK. OTHER 6502FORTH WORDS ARE AVAILABLE 
THAT CAN EITHER FETCH THE VALUE FROM THE ADDRESS ON THE STACK OR CHANGE 
THE VALUE AT THAT ADDRESS. 

THE DIFFERENCE BETWEEN "CQNS" AND. -VARI" IS THAT "CONS" DEFINES A WORD 
WHICH REPRESENTS A VALUE. "VARI" DEFINES A WORD THAT REPRESENTS AN 
ADDRESS* 
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8. INPUT / OUTPUT. 



UNDER NORMAL OPERATION, 6502FORTH ACQUIRES ITS INPUT FOR EXECUTION FROM 
THE KEYBOARD. THE SYSTEM IS USUALLY IDLE AND WAITING FOR THE USER TO 
TYPE * COMPLETE LINE OF WORD S. WHEN THIS IS DONE, THE SYSTEM INTERPRETS 
THE LINE, TRIES TO EXECUTE THE VALID WORDS, AND THEN PROCEEDS TO PROMPT 
THE USER FOR MORE INPUT. 

6502FO*TH MAY ALSO TAKE ITS INPUT FROM THE BLOCK BUFFER. THE WORD "LOAD" 
CAUSES THE SYSTEM TO READ A SCREEN FROM THE CASSETTE DEVICE AND LOAD IT 
INTO THE BLOCK BUFFER. THE INPUT THAT IS READ IS CALLED A SCREEN. IF THE 
USER HAS THE DISK VERSION OF 6502F0RTH, HE MAY LOAD SCREENS OF TEXT FROM 
THE DISK UNIT BY ISSUING THE PROPER 6502FORTH DISK COMMANDS. 

THE DATA IN THE BLOCK BUFFER CAN BE EDITED AND THEN EXECUTED JUST AS IF 
IT HAD ALL BEEN KEYED IN AT THE KEYBOARD AGAIN. THE WORD "EXEC" CAUSES 
THE ISPUT TO COME FROM THE BLOCK BUFFER INSTEAD OF THE KEYBOARD BUFFER. 
THE ISPUT ALWAYS STARTS FROM THE BEGINNING OF THE BLOCK BUFFER AND 
CONTINUES UNTIL THE FIRST OCCURANCE OF THE WORD ";S". THE "; S" WORD 
STOPS THE SCAN OF THE BLOCK BUFFER. ANY DATA FOUND IN THE BUFFER AFTER 
THE ";S" IS IGNORED. THE ";S" ALSO SWITCHES THE SYSTEM BACK INTO THE 
KEYBOARD MODE OF INPUT. 

THE DATA IN THE BLOCK BUFFER CAN BE WRITTEN TO THE CASSETTE DEVICE WITH 
THE WORD "SAVE". THE USER SHOULD FIRST READY THE MASS STORAGE DEVICE. 
THE WORD "SAVE" IS THEN TYPED ON THE INPUT KEYBOARD, FOLLOWED BY A 
CARRIAGE RETURN (CR). THE "SAVE" WORD WILL AUTOMATICALLY PLACE A "S;" 
WORD AS THE LAST PHYSICAL WORD OF THE BUFFER. THE BUFFER IS THEN WRITTEN 
TO THE CASSETTE DEVICE. THE ";S" IS PLACED AT THE END OF THE OATA IN THE 
BUFFER AS A CONVENIENCE FOR THE SUBSEQUENT "LOAD" AND "EXEC" OF THE 
SCREES. IF THE USER HAS THE DISK VERSION OF 6502FORTH, HE THEN MAY ISSUE 
THE PROPER 6502FORTH DISK COMMANDS TO SAVE SCREENS TO THE DISK. 
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9, CONDITIONAL BRANCHES. 



6502FORTH PROVIDES SEVERAL TECHNIQUES FOR CONTROLLING THE FLOW OF 
PROGRAM EXECUTION. THE METHODS DESCRIBED IN THE FOLLOWING PARAGRAPHS AND 
THE EXAMPLES MUST BE USED WITHIN " : " (COLON) DEFINITIONS. ALL OF THESE 
DEFINITIONS ARE IMMEDIATE WORDS. I I.E. THEY ARE EXECUTED IMMEDIATELY - 
DURING THE COMPILATION - AND CAUSE MACHINE LANGUAGE CODE TO BE ADDED 
INTO THE DICTIONARY. IT IS UNDESIRABLE TO ADD ANYTHING TO THE DICTIONARY 
UNLESS A WORD IS BEING DEFINED). 

THE SIMPLEST CONDITIONAL BRANCH IS SPECIFIED THROUGH THE USE OF THE 
WORDS "BEGIN" AND "END". THE "BEGIN" - "END" CONSTRUCT IS USEFUL FOR 
PROGRAM LOOPS, WHEN THE LOOP TERMINATION CONDITION CAN BE EXPRESSED BY 
LEAVING A ZERO OR NON-ZERO VALUE ON THE STACK. THE "ENO" WORD TESTS THE 
STACK VALUE AND IF IT'S ZERO THE LOOP IS REPEATED. FOR EXAMPLE: 

: EX 5 BEGIN 1 - DUP NOT END DROP ; 

FIRST THE VALUE 5 IS PUSHED ONTO THE TOP OF THE STACK. THE WORD "BEGIN" 
INDICATES THE BEGINNING OF A LOOP. EVERYTHING BETWEEN THE WORDS "BEGIN" 
AND "END" WILL BE REPEATED UNTIL THE WORD "END" FINDS A NON-ZERO VALUE 
ON THE STACK. s THE VALUE ON TOP OF THE STACK IS ALWAYS REMOVED BY THE 
WORD "END". THE FIRST THING THE LOOP DOES IS PUSH A I ONTO THE STACK • 
THEN THE 1 IS SUBTRACTED FROM THE 5 BY THE WORD "-". THE ONLY THING ON 
THE STACK NOW IS THE VALUE 4, THE WORD "DUP" DUPLICATES THE TOP VALUE ON 
THE STACK. THIS IS NECESSARY BECAUSE THE WORD "END" IS GOING TO REMOVE 
ONE VALUE. SO NOW, AFTER THE "DUP", THE STACK CONTAINS TWO VALUES OF <t. 
THE "SOT" WORD SWITCHES THE TOP VALUE ON THE STACK TO I HAD IT ALREADY 
BEEN 0, NOT WOULD HAVE SWITCHED IT TO 1). THE "END" WORD TESTS THE TOP 
VALUE ON THE STACK FOR AND THEN REMOVES THAT VALUE. THE STACK NOW 
CONTAINS ONLY THE VALUE 4. SINCE THE "END" WORD FOUND A NON-ZERO VALUE, 
THE LOOP IS REPEATED. THIS PROCESS WILL CONTINUE TO DECREMENT THE VALUE 
nN THE STACK UNTIL IT REACHES ZERO. WHEN IT BECOMES 0, THE NOT WORD WILL 
SWITCH IT TO 1. WHEN "END" FINDS THE I , ITS SEARCH WILL BE SATISFIED; IT 
WILL REMOVE THE I, AND THE WORD AFTER THE "END" WILL BE EXECUTED. THE 
WORD "DROP" REMOVES THE TOP VALUE ON THE STACK, IT IS USED IN THIS 
EXAMPLE TO REMOVE THE RESIDUAL ZERO 10) LEFT ON THE STACK. IT»S 
IMPORTANT TO LEAVE THE STACK AS YOU FOUND IT. REMEMBER, NONE OF THIS 
WILL HAPPEN UNTIL THE WORD "EX" IS SUBSEQUENTLY FOUND IN THE INPUT 
STREAM AND EXECUTED. 

AN ENDLESS LOOP CAN BE CREATED BY THE FOLLOWING: ; 

: XI BEGIN END ; 

OTHER WORDS CAN BE PLACED BETWEEN THE "BEGIN" AND THE "0 H TO GIVE THE 
ENDLESS LOOP MORE PURPOSE. ONCE THE WORD XI IS EXECUTED, IT CAN ONLY BE 
STOPPED BY RESETTING THE COMPUTER. THE PROGRAM MUST THEN BE 
"SOFTSTARTED". 
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6502FCHTH CONTAINS A LOOPING FACILITY THAT IS VERY MUCH LIKE THE FORTRAN 
DO-LOOP CONSTRUCT. THE WORDS DO, LOOP , AND ♦LOOP ARE USED TO DEFINE THE 
FORTH DO-LOOP FACILITY, THE FOLLOWING EXAMPLE WILL ILLUSTRATE THE USE OF 
THESE NEW WORDS: 

: EX2 4 DO I . LCOP ; 

WHEN THE WORD EX2 IS EXECUTED, THE CONSTANTS 4 AND WILL BE PUSHED 
RESPECTIVELY ONTO THE STACK. THE WORD DO USES THESE TOP TWO VALUES AS 
THE LIMIT AND THE INITIAL INDEX OF THE LOOP. THESE NUMBERS WILL BE 
REMOVED FORM THE NORMAL STACK AND PUSHED ONTO THE RETURN STACK. THEN THE 
WORDS AFTER THE WORD DO APE EXECUTED. THE WORD I COPIES THE INDEX VALUE 
FROM THE RETURN STACK AND PUSHES IT BACK ONTO THE NORMAL STACK. (THE 
INDEX VALUE IS NOW ON TOP OF BOTH STACKS ) • THE WORD "." (PERIOD) REMOVES 
THE TDP VALUE ON THE NORMAL STACK AND PRINTS IT. THE WORD LOOP 
INCREMENTS THE INDEX VALUE (ON TOP OF THE RETURN STACK) AND THEN TESTS 
IT WITH THE LIMIT VALUE (SECOND VALUE ON THE RETURN STACK). IF THE NEW 
INDEX VALUE IS LESS THAN THE LIMIT, THEN CONTROL RETURNS TO THE FIRST 
WORD AFTER THE DO. OTHERWISE, THE INDEX AND LIMIT ARE POPPED FROM THE 
RETURN STACK AND CONTROL PASSES OUT OF THE LOOP. THE OUTPUT PRODUCED 8Y 
FXECUTION OF THE WORD E X2 IS: 

12 3 

NOTE THAT THE LIMIT GIVES THE NUMBER OF TIMES THE LOOP IS EXECUTED WHEN 
THE INITIAL INDEX IS SET TO ZERO (0). THE RANGE OF A DO LOOP IS ALWAYS 
EXECUTED AT LEAST ONCE. SINCE DO LOOPS USE THE RETURN STACK, CARE MUST 
BE TAKEN IF THE WORDS WITHIN THE LOOP ALSO USE THE RETURN STACK., 

LOOPS THAT INCREMENT THE INDEX BY A VALUE OTHER THAN +1 ARE ACCOMPLISHED 
WITH THE -H.0OP WORD, +LO0P IS LIKE LOOP, EXCEPT THAT THE CURRENT NORMAL 
STACK VALUE IS USED TO DETERMINE THE NEW INDEX. IF THE CURRENT NORMAL 
STACK VALUE IS NEGATIVE, THEN LOOPING CONTINUES UNTIL THE NEW INDEX 
BECOMES LESS THAN THE LIMIT VALUE. 

FORWARD CONDITIONAL BRANCHES MAY BE MADE IN 6502F0RTH USING THE WORDS 
IF, THEN, AND ELSE. THESE WORDS ARE MORE EASILY EXPLAINED THROUGH THE 
USE OF AN EXAMPLE: 

: EX3 IF (TRUE-WORDS) ELSE (FALSE WORDS) THEN ; 

WHEN EX3 IS EXECUTED, THE WORO IF TESTS THE CURRENT STACK VALUE. IF THE 
VALUE IS NON-ZERO, THEN THE "TRUE-WORDS" ARE EXECUTED. IF THE VALUE IS 
ZERO (0) THEN THE "F AL SE- WORDS " ARE EXECUTED. THE WORD THEN INDICATES 
THE EN3 OF THE IF.., ELSE CONSTRUCT. IT IS ALWAYS REQUIRED. THE WORD ELSE 
IS OPTIONAL. FOR EXAMPLE: 

: EX4 IF (TRUE-WORDS) THEN ; 

EXA WILL CAUSE THE H TR UE — WORD S M TO BE EXECUTED ONLY IF THE TOP STACK 
VALUE IS NON-ZERO. 
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10. ER*OR CHECKING. 



6502FCHTH PRODUCES VARIOUS ERROR INDICATIONS. ANYTIME THAT AN ERROR IS 
FOUND, THE SYSTEM PRINTS THE OFFENDING WORD FOLLOWED BY A "?". A TEXT 
ERROR MESSAGE IS ALSO PRINTED INDICATING THE POSSIBLE CAUSE FOR THE 

ERROR. WHEN AN ERROR MESSAGE IS PRODUCE 65Q2F9RTH STOPS ITS QUERENT 

ACTIVITY AND RETURNS TO THE INPUT MODE. IF A WORD WAS IN THE PROCESS OF 
REING DEFINED, THE DICTIONARY IS RETURNED TO ITS STATE PRIOR TO THE 
BEGINNING OF THE DEFINITION. THE STACKS ARE RE- INI T I AL I ZEO. THE EFFECT 
IS VERY SIMILAR SIMILAR TO A 6502F0RTH "SOFT ST ART 



6502F0RTH VER 1.2 SYSTEM 
PRELIMINARY REFERENCE MANUAL 



PACE 15 



11. STANDARD VOCABULARY. 



FOLLOWING EACH WORD DEFINITION IS A GRAPHIC DEMONSTRATION OF THE WORD'S 
EFFECT ON THE NORMAL STACK. (12 3 4 WORD 1 2 31 SHOWS THAT THE VALUES 
1, 2, 3, AND 4 WERE ENTERED, WITH 4 ON TOP OF THE STACK. THEM "WORD" WAS 
ENTERED. IN THIS CASE "WORD" CAUSED THE TOP STACK VALUE TO BE "POPPED" 
LEAVING THE 3 AS THE TOP VALUE. 



TYPING WORDS £ UTILITY WORDS 



• (PERIOD! 

CONVERT AND TYPE THE SIGNED VALUE ON TOP OF THE STACK ACCORDING TO THE 
CURRENT RADIX. (1234 • 12 31 



*DIG 

A VARIABLE WHOSE VALUE SETS THE TABULATION STOPS FOR THE WORD ". " 
(PERIOD). THE NUMBER OF SPACES AND DIGITS TYPED IS EQUAL TO THE 
VALUE OF THE VARIABLE #DIG. IF #DIG IS TOO SMALL TO ALLOW COMPLETE 
TYPING OF A NUMBER, IT IS THEN IGNORED. (STACK IS UN-AFFECTED) 

? 

USES THE TOP OF THE STACK AS AN ADDRESS; AND TYPES THE VALUE AT THAT 
ADDRESS ACCORDING TO THE CURRENT RADIX. 
( 1 2 3 4 ? 12 31 



TYPES THE L SB ON TOP OF THE STACK IN ASCII. IF THE CHARACTER IS 
^DN-PR INTING , A SPACE WILL USUALLY BE PRINTED. 
(12 3 4 ECHO 12 3) 



SPACE 

TYPES A SINGLE SPACE. (STACK IS UN-AFFECTED) 



SPCES 

TYPES THE NUMBER OF SPACES SPECIFIED BY THE NUMBER ON TOP OF THE STACK. 
(12 3 4 SPCES 12 3) 



$MSG 

TYPES A STRING OF CHARACTERS UNTIL A «04 HEX VALUE IS FOUND. THE TOP 
STACK VALUE PROVIDES THE ADDRESS OF THE FIRST BYTE OF THE STRING TO 
BE TYPED. CONTROL CHARACTERS MAY BE IMBEDDED IN THE STRING. 
(12 3 4 $MSG 12 3) 

TYPE TYPES A STRING OF CHARACTERS WHOSE ADDRESS IS FOUND AS THE SECOND 
VALUE ON THE STACK. THE TOP STACK VALUE CONTAINS THE NUMBER OF 
CHARACTERS TO BE TYPED. (12 3 4 TYPE I 2! 



CR 

OUTPUT A CARRIAGE RETURN. (STACK IS UN-AFFECTED) 



PAGE 

CLEARS A CRT DISPLAY DEVICE TC BLANKS. PAGE SHOULD NOT BE USED FOR 
HARD-COPY DEVICES. (STACK IS UN-AFFECTED) 
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7BASE 

CONVERSION OF THE TYPED NUMBER. (STACK IS UN-AFFECTED) 



TVPE ^ n I!!L,^ R !? T ...? A B^„ USING DECIMAL AS A TEMPORARY RADIX FOR 



HELP 

TYPES EVERY WORD IN THE 6502F0RTH DICTIONARY IN THE ORDER IT IS 

iIhIVJIt; T unp^ D JL SS n ? F CD EACH W0RD,S C00E 15 " PE ° AFTER EACH WORd! 
IMMEDIATE WORDS ARE DISPLAYED IN REVERSE VIDEO. A PAGE OF WORDS IS 

DISPLAYED AT A TIME. TO OBTAIN THE NEXT PAGE. DEPRESS THE RETURN 
KEY. TO EXIT THE FUNCTION, DEPRESS A CTL-C SEQUENCE. 
(STACK IS UN-AFFEC TED I 

OL 1ST 

WILL BEGIN LISTING ALL DICTIONARY WORDS AND CODE ADDRESSES FROM THE 

S2 D ?uI S rn D £ ^ W0R ° ° N T ° P <* ™ E STACK « T HE ADDPES S MUST BE T HA T 
OF THE CODE AND NOT THE HEADER. (12 3 4 OLIST 12 3) 

• HEX 

WILL >RINT THE NUMBER ON TOP OF THE STACK AS TWO (41 UNSIGNED 
HEXADECIMAL DIGITS. (12 3 4 .HEX 12 31 u^l^tD 

BELL 

WILL SOUND THE SYSTEMS • S BELL OR NOICE MAKER DEVICE. 
(STACK IS UN- AFF EC TED 1 

ABORT 

WILL «1«!I. ™! PRESENT SYSTEM STATUS AND RESTORE THE SYSTEM TO A 



S3FTSTART CONDITION. (ALL STACKS ARE RESET) 



IN* 



WRL cJ?rJ IALIZ f, I NPUT P ° RT * SPECIFIED BY THE NUMBER ON TOP OF THE 
STACK. (12 3 4 IN* 12 3) 

PR# 

WILL INITIALIZE OUTPUT PORT f SPECIFIED BY THE NUMBER ON TOP OF THE 
STACK. (12 3 4 PR# 12 3) 

INO 

WILL SET THE INPUT TO THE KEYBOARD DEVICE. (STACK IS UN-AFFECTED) 

PRO 

WILL SET THE OUTPUT TO THE TERMINAL CRT DEVICE. 
(STACK IS UN-AFF EC TED ) 

SSYS 

WILL UPDATE THE 6502F0RTH SYSTEM POINTERS TO INCLUDE NEW ENTRIES IN THE 

?. I |£IJ7J^ Y . i?S« ILL AUT0MA TICALLY SAVE THE SYSTEM T CASSETTE. THE 
AUTOMATIC LOADER IS FIRST RECORDED, FOLLOWED BY THE ACTUAL SYSTEM 
CODE ITSELF. (STACK IS UN-AFFECTED) 
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$PTR 

WILL SET THE PRESENT SYSTEM POINTERS TO INCLUDE NEW ENTRIES THAT HAVE 
BEEN ADDED TO THE DICTIONARY. (STACK IS UN-AFFECT EDI 



$HEX WILL PRINT THE CONTENTS OF THE A REGISTER AS TWO HE XADEC IM AL S 
DIGITS. (STACK IS UN-AFFECTED) 



* ERR 

WILL PRINT THE ERROR MESSAGE TEXT AND CODE NUMBER. 
(STACK IS UN-AFFECTED) 



* SOF 

WILL P*INT THE SOFTSTART MESSAGE TEXT CNLY. (STACK IS RESET) 



BRK 

WILL CAUSE A MACHINE BREAK TC OCCUR BACK TO THE SYSTEM MONITOR. A 
DISPLAY OF THE REGISTERS IS PRINTED. 
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BLOCK I/O £ EDITOR WORDS 



CASS 

INITIALIZES THE CASSETTE I/O 
VALUES* OF THE BLOCK TO BE 
FROM THE STACK. 11 2 H 

CASH 

WRITES TO CASSETTE. I STACK IS 



ROUTINES WITH THE BEGINNING AND ENDING 
OUTPUT, USING THE SECOND AND TOP VALUES 

§ h LDBF 1 2 3 K\ 



UN-AFFECTED) 



CASR 

READS FROM CASSETTE. (STACK IS UN-AFFECTED) 

SAVE 

WRITES THE BUFFER SPECIFIED BY THE NUMBER ON TOP OF THE STACK TO 

CASSETTE. <1 2 3 4 SAVE 12 3) 



LOAD 

READS FROM CASSETTE AND INTO THE BUFFER SPECIFIED BY THE NUMBER ON TOP 
OF THE STACK. (12 3 4 LOAD 12 3) 

EXEC 

CAUSES THE CONTENTS OF THE BUFFER SPECIFIED BY THE NUMBER ON TOP OF THE 
STACK TO BE PASSED THROUGH THE KEY-IN ROUTINES JUST AS IF IT WAS 
BEING RECEIVED FROM THE KEYBOARD. THE SCAN BEGINS WITH THE START OF 
THE BUFFER AND CONTINUES UNTIL THE ";S" WORD IS FOUND. 
(1234 EXEC 123) 



USED IN CONJUNCTION WITH EXEC TO INDICATE THE END OF THE SCAN. ;S 
RETURNS 6502FORTH TO THE NORMAL INPUT KEYBOARD MODE. A ;S IS 
AUTOMATICALLY PLACED AT THE END OF THE ACTIVE BUFFER ON LINE 21, 
H3WEVEK THE ;S ITSELF IS NEVER DISPLAYED. (STACK IS UN-AFFECTED) 
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***N0TE***NOTE***N0TE***NOTE***NOTE***NOTE***NOTE***NOTE***N0T E***NOT E 
BEFORE USING ANY OF THE EDITOR WORDS BE SURE THAT YOU HAVE THE SYSTEM IN 

DECIMAL MODE QF OPERATION* IF THE ABOVE IS NOT DONE? THEN THE 

EDITOR WORDS WILL NOT WORK PROPERLY. THE EDITOR ITSELF ALLOWS 
EITHER BUFFER TO MAINTAIN A SCREEN OF 20 LINES OF 37 CHARACTERS 
EACH. A TEMPORARY LINE IS AUTOMATICALLY MAINTAINED BY THE SYSTEM, 
AND IT IS USED TO CONTAIN TEMPORARY TEXT MATERIAL THAT WILL BE USED 
IN INSERT AND REPLACE OPERATIONS- THE TEMPORARY LINE EXISTS AS LINE 
22 OF BUFFER Ot HOWEVER, IT IS NEVER DISPLAYED ON EITHER BUFFER. 

***N3TE***N0TE***N0TE***NOTE***NOTE**+NOTE***NOTE***NOT E***NOT E***NOT E 



PUFFER 

SETS THE ACTIVE BUFFER FOR ALL EDITOR OPERATIONS. THE VALJE ON TOP OF 
THE STACK IS USED AS THE BUFFER NUMBER. THE SYSTEM CURRENTLY 
SUPPORTS BUFFER AND BUFFER 1 ONLY. (12 3 4 BUFFER 12 3) 

CLRB 

WILL CLEAR THE BUFFER SPECIFIED BY THE NUMBER ON TOP OF THE STACK TO 
SPACES. (12 3 4 CLRB 12 3) 

L 1ST 

WILL DISPLAY THE CONTENTS OF THE BUFFER SPECIFIED BY THE NJMBER ON TOP 
OF THE STACK ON A LINE NUMBERED BASIS. 
(12 3 4 LIST I 2 31 

COPY 

WILL COPY THE BUFFER SPECIFIED BY THE SECOND NUMBER CN TOP OF THE STACK 
TO THE BUFFER SPECIFIED BY THE FIRST NUMBER CN TOP OF THE STACK. 
(12 3 4 5 6 COPY 12 3 4) 

OEL 

WILL DELETE THE LINE NUMBER SPECIFIED BY THE NUMBER ON TOP OF THE STACK. 
ALL SUBSEQUENT LINES FOLLOWING THE DELETED LINE ARE MOVED UP. THE 
CONTENTS OF THE DELETED LINE ARE PLACED IN THE TEMPORARY LINE. 
(12 3 4 DEL 1 2 31 

IN 

WILL INSERT THE TEMPORARY LINE AFTER THE LINE NUMBER SPECIFIED BY THE 
NUMBER ON TOP OF THE STACK. ALL LINES FOLLOWING THE INSERTED LINE 
ARE SUBSEQUENTLY MOVED DOWN. A LINE WILL EFFECTIVELY CAUSE AN 
INSERT ON LINE NUMBER L. (12 3 4 IN 12 3! 

R 

WILL REPLACE THE LINE THAT IS SPECIFIED BY THE NUMBER ON TOP OF THE STACK 
WITH THE TEMPORARY LINE. (12 3 4 R 1 2 3 ) 

L INE 

WILL BEGIN AN AUTOMATIC LINE PROMPTING SEQUENCE, WHEREBY THE USER CAN 
ENTER TEXT INTO THE ACTIVE BUFFER. THE NUMBER ON TOP OF THE STACK 
SPECIFIES THE BEGINNING LINE NUMBER, WHILE THE SECOND NUMBER ON THE 
STACK SPECIFIES THE LAST LINE NUMBER ♦ I. 
(123456 LINE 1234) 
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IS USED TO INSERT TEXT MATERIAL INTO THE TEMPORARY LINE. THE TEXT 
MATERIAL SHOULD BE PRECEED BY THE WORD " AND A SPACE. THE TEXT 
MATERIAL SHOULD BE TERMINATED WITH A CORRESPONDING THE MAXIMUM 
NUMBER OF CHARACTERS THAT THE TEMPORARY LINE WILL HOLD IS 37. 
( STACK IS UN-AFFECTED1 

$PUT 

WILL CAUSE THE ASCII CHARACTER IN THE A REGISTER TO BE DISPLAYED ON THE 
OUTPUT CRT DEVICE. (STACK IS UN-AFFECTEDI 

CPLR 

WILL COPY FROM A SENDING LOCATION TO A DESTINATION LOCATION IN A LEFT TO 
RIGHT MANNER. THE MAXIMUM NUMBER OF BYTES THAT CAN BE COPIED IS 
65535. THE USER MUST SPECIFY THE SOURCE ADDRESS. THE DESTINATION 
ADDRESS. AND THE LENGTH IN BYTES CN TOP OF THE STACK. 
(12 3 4 CPU 1 I 

CPRL 

WILL COPY FROM A SENDING LOCATION TO A DESTINATION LOCATION IN A RIGHT 
TO LEFT MANNER. (I.E. SOURCE - TARGET. SOURCE-i - TARGET-1, ETC. I 
THE SOURCE AND DESTINATION ADDRESSES MUST POINT TO THE RIGHTMOST 
BYTE OF THEIR RESPECTIVE AREAS. THE MAXIMUM NUMBER OF BYTES THAT 
CAN BE COPIED IS 65535. THE USER MUST SPECIFY THE SOURCE ADDRESS, 
THE DESTINATION ADDRESS. A NO THE LENGTH IN BYTES ON TOP OF THE 
STACK. (12 3 4 CPRL 1 I 



CLRM 

WILL FILL BEGINNING AT THE ADDRESS THAT IS SPECIFIED. FOR THE LENGTH IN 
BYTES SPECIFIED. WITH THE CHARACTER THAT IS SPECIFIED. THE USER 
MUST SPECIFY THE CHARACTER, THE ADDRESS. AND THE LENGTH IN BYTES ON 
TOP OF THE STACK. (12 3 4 CLRM 1 I 
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WORD-DEFINING WORDS 



BEGINS A COLON DEFINITION. THE NEXT WORD IN THE INPUT IS TAKEN AS THE 
NAME OF THE NEW WORD. THE INTERPRETER IS AUTOMATICALLY SET TO THE 
CDMPILE MODE. (STACK IS UN-AFFECTED) 



TERMINATES THE COLON DEFINITION, PLACES A "RETURN TO SUBROUTINE" CRTS) 
INSTRUCTION IN THE DICTIONARY, THEN SWITCHES THE SYSTEM BACK TO 
INTERPRET MOOE. THIS WORD SHOULD ONLY BE USED WHILE IN COMPILE 
M3DE. 

(STACK IS UN-AFFECTED) 



USED WITHIN ":" (COLON) DEFINITIONS TO CAUSE THE WORDS FOLLOWING TO BE 
EXECUTED RATHER THAN COMPILED. THE EFFECT IS AS IF ALL WORDS 
FDLLOWING THE (UP-ARROW) WERE "I MMEO I ATES" . 
(STACK IS UN-AFFECTED) 

IMME 

USED WITHIN ":" (COLON) DEFINITIONS JUST PRIOR TO THE ";" WORD. IT 
INDICATES, ^TO THE SYSTEM, THAT THE WORD WHICH IS BEING COMPILED 
SHOULD BE IDENTIFIED AS AN "IMMEDIATE" WORD. AN "IMMEDIATE" WORD IS 
ALWAYS EXECUTED WHEN IT IS ENCOUNTEREO IN THE INPUT STREAM, 
REGAROLESS OF THE COMPI LE /I NTERPRET MODE OF THE SYSTEM. IT WILL 
ALWAYS BE TREATED AS IF IT FCLLOWED A "*". 
(STACK IS UN-AFFECTED) 

CONS 

DEFINES A WORD THAT WILL, WHEN EXECUTED, PUSH A CONSTANT VALUE ON ThE 
STACK. THE VALUE OF THE CCNSTANT IS OBTAINED FROM THE TOP OF THE 
STACK WHEN CONS IS EXECUTED. CONS IS NOT NORMALLY USEO IN A " : « 
COLON) DEFINITION. ( 1 2 3 4 CCNS 12 3) 

VAR I 

DEFINES A WORO THAT WILL, WHEN EXECUTED, PUSH AN ADDRESS ON THE STACK. 
THE ADDRESS POINTS TO A VALUE IN THE DICTIONARY. THE ADDRESS CAN 
THEN BE USED TO REFERENCE OR CHANGE THE VALUE. WHEN VARI IS 
EXECUTED, THE TOP STACK VALUE BECOMES THE INITIAL VALUE OF THE 
VAL I ABLE. VARI IS NOT NORMALLY USED IN A ":" (COLON) DEFINITION. 
( I 2 3 A VARI 12 3) 

ARRAY 

SETS ASIDE A REGION IN THE DICTIONARY WHOSE LENGTH (IN 16-BIT WORDS) IS 
THE TOP STACK VALUE. THE NAME CF THE ARRAY FOLLOWS THE WORD ARRAY 
IN THE INPUT STREAM. WHEN THE NEW WORD IS SUBSEQUENTLY EXECUTED, 
THE NUMBER ON TOP OF THE STACK IS USED AS THE INDEX TO THE ARRAY 
AND THE SYSTEM WILL RETURN THE ADDRESS OF THAT ELEMENT. 
(12 3 4 ARRAY 12 3) 
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CONSTANTS. 



PASE 

ADDRESS OF THE CURRENT RADIX (OR BASE ) VALUE. 
(1234 BASE 123451 



H 

ADDRESS OF THE POINTER TO THE NEXT AVAILABLE DICTIONARY LOCATION. 
(1234 H 123451 



SP 

ADDRESS OF THE POINTER TO THE CURRENT (CR TOP) NORMAL STACK VALUE. 
(1234 SP 123451 

RS 

ADDRESS OF THE POINTER TO THE CURRENT (CR TOPI RETURN STACK VALUE. 
(1234 RS 12345) 



L INK 

ADDRESS OF THE FIRST BYTE OF THE HEADER PORTION OF THE LAST HEADER IN 
THE DICTIONARY. (12 3 4 LINK 12 3 4 5) 



DEL IM 

ADDRESS OF THE DELIMITER CHARACTER BEING USED IN PARSING THE SOURCE 
STATEMENTS. (12 3 4 DELIM 12 3 4 5) 



ERR 

ADDRESS OF THE BYTE THAT CONTAINS THE ERROR CODE FOR THE ERROR PRINTING 
R3UTINE. (12 3 4 ERR 12 3 4 5) 



EBLK 

ADDRESS OF THE CURRENT ACTIVE EDIT BUFFER. 
(12 3 4 EBLK 12 3 4 5) 



IBP 

ADDRESS OF THE POINTER TO THE INPUT BUFFER. 
(1234 IBP 12345) 
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NORMAL STACK OPERATIONS. 



DROP 

REMOVES (OR POPSI THE CURRENT NORMAL STACK VALUE. THE SECOND STACK VALUE 
BECOMES THE CURRENT VALUE. (12 3 4 DROP 12 31 



DUP 

DUPLICATES THE CURRENT, NORMAL STACK VALUE. AFTER DUP, THE CURRENT AND 
SECOND STACK VALUES ARE THE SAME. 
( 1 2 3 A DUP 1 2 3 4 41 



-DUP 

DUPLICATES THE TOP VALUE ON THE STACK, ONLY IF THE VALUE IS NOT EQUAL TO 
2§RQ« GTHERHI SE t THE TOP VALUE IS REMOVED. 
(12 3 4 -DUP 12 3 4) 



OVER 

DUPLICATES THE SECOND STACK VALUE AND PUSHES IT ON THE STACK. THE 
CURRENT NORMAL STACK VALUE BECOMES THE SECOND STACK VALUE AND THE 
TDP AND THIRD VALUES ARE THE SAME. 
(12 3 4 OVER 12 3 4 3) 

ROT 

MOVES THE THIRD STACK VALUE TO THE TOP OF THE STACK. THE TOP STACK VALUE 
BECOMES THE SECOND AND THE SECOND STACK VALUE BECOMES THE THIRD. 
(1 2 3 4 ROT 1 3 4 2) 



SWAP 

INTERCHANGES THE TOP NORMAL STACK VALUE WITH THE SECOND VALUE. 
(12 3 4 SWAP 12 4 3) 
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RETURN STACK OPERATIONS. 

RESETS THE RETURN STACK TO ITS NORMAL CONDITION. 
(SORMAL STACK IS UN-AFFECTED) 

<R 

REMOVES THE CURRENT NORMAL STACK VALUE AND PUSHES IT ON THE RETURN 
STACK. II 2 3 4 <R 12 31 

R> 

REMOVES THE CURRENT RETURN STACK VALUE AND PUSHES IT ON THE NORMAL 
STACK. 11234 R> 1234 51 

I 

PUSHES THE CURRENT RETURN STACK VALUE ON THE NORMAL STACK WITHOUT 
REMOVING IT FROM THE RETURN STACK. AFTER "I" THE CURRENT VALUES ON 
B3TH STACKS ARE THE SAME. CI 2 3 4 I 12 3 4 51 

J 

PUSHES THE INDEX OF THE NEXT OUTER MOST DO ON TOP OF THE NORMAL STACK • 
(1234 J 12345) 
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DICTIONARY OPERATIONS. 



HERE 

PUSHES THE ADDRESS OF THE NEXT AVAILABLE DICTIONARY LOCATION ON THE 
NOFMAL STACK . (12 3 4 HERE 12 3 4 5) 



TRUNC 

TRUNCATES (OR DELETESI THE DICTIONARY BEGINNING WITH THE ADDRESS THAT IS 
FOUND ON THE TOP OF THE NORMAL STACK. THE ADDRESS ON TOP OF THE 
STACK MUST BE THE ADDRESS OF THE CCDE PORTION OF A WORD. 
(12 3 4 TRUNC 1 2 31 

FORGET 

WILL TRUNCATE (OR DELETE ) THE DICTIONARY BEGINNING WITH THE WORD THAT IS 
DIRECTLY FOLLOWING THE FORGET WORD ITSELF. 
(STACK IS UN-AFFECTED) 



PLACES THE CURRENT NORMAL STACK VALUE (16-BITS) INTO THE NEXT TWO 
AVAILABLE DICTIONARY LOCATIONS. (12 3 4 , 12 3) 



C 

PLACES THE L SB (8-BITSI OF THE CURRENT NORMAL STACK VALUE INTO THE NEXT 
AVAILABLE DICTIONARY LOCATION. (12 3 4 C, 12 3) 



D= 

PLACES THE MACHINE'S ACCUMULATOR (REGISTER A) INTO THE NEXT AVAILABLE 
DICTIONARY LOCATION (8 BITS). (STACK IS UN-AFFECTED) 
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CONDITIONAL BRANCHES. 



NONE OF THE FOLLOWING GROUP OF WORDS CAN BE USED OUTSIDE OF A " : M 
(COLON1 DEFINITION. THE STACK DESCRIPTIONS SHOW THE EFFECT ON THE 
STACK WHEN THF WORD, THAT IS BEING DEFINED, IS SUBSEQUENTLY 
EXECUTED. IT IS NOT THE EFFECT DURING COMPILATION. 



BEGIN 

STARTS A LOOP WHICH WILL BE TERMINATED BY END. BEGIN CAN ONLY BE USED 
WITHIN A (COLON) DEFINITION. (STACK IS UN-AFF ECTED I 

END 

TERMINATES A BEGIN/END LOOP. END CAN ONLY BE USED WITHIN A "t" ( COLON I 
DEFINITION. WHEN THE WORD THAT IS BEING DEFINED IS SUBSEQUENTLY 
EXECUTED, THE CODE GENERATED BY END WILL POP THE CURRENT, NORMAL 
STACK VALUE AND TEST IT FOR ZERO. IF IT IS ZERO, A BRANCH WILL BE 
TAKEN BACK TO BFGIN. 
(12 3* END 123) 

DO 

STARTS A LOOP WHICH WILL BE TERMINATED BY EITHER LOOP OR -K.OOP. DO CAN 
O^LY BE USED WITHIN A ":» (COLON) DEF INATI ON. WHEN THE WORD THAT IS 
BEING DEFINED IS SUBSEQUENTLY EXECUTED, THE DO USES THE CURRENT 
STACK VALUE FOR THE LOOP INDEX ANO THE SECOND STACK VALUE AS THE 
FINAL LOOP INDEX. THESE VALUES ARE PUSHEO ONTO THE RETURN STACK SO 
THAT THE CURRENT, RETURN STACK VALUE IS THE LOOP INDEX. 
(12 3 4 DO 12) 

LOOP 

TERMINATES A DO/LOOP CONSTRUCT. EXECUTION OF THE LOOP WORD WILL ADD ONE 
T3 THE LOOP INDEX. IF THE NEW INDEX VALUE IS LESS THAN THE FINAL 
I^DEX VALUE (SECOND VALUE ON THE RETURN STACK), THEN CONTROL IS 
TRANSFERRED TO THE WORD FOLLOWING THE DO, AND THE LOOP IS REPEAT ED„ 
OTHERWISE, THE TWO INDEX VALUES ARE POPPED FROM THE RETURN STACK 
AND THE LOOPING SEQUENCE ENDS. THE DO/LOOP CONSTRUCT IS ONLY USED 
WITHIN (COLON) DEFINITIONS. (NORMAL STACK IS UN-AFFECTED) 

♦LOOP 

TERMINATES A DO/+LOOP CONSTRUCT, AND IS EXACTLY LIKE THE DO/LOOP 
PREVIOUSLY DEFINED. THE EXCEPTION IS THAT THE CURRENT, NORMAL STACK 
VALUE IS ADDED TO THE LOOP INDEX (ON THE RETURN STACK) TO FORM THE 
NEW LOOP <INDE X. IF THE CURRENT, NORMAL STACK'vALUE IS NEGATIVE, 
LOOPING WILL CONTINUE WHILE THE NEW INDEX VALUE IS GREATER THAN THE 
FINAL VALUE (SECOND VALUE ON THE RETURN STACK). THE 00/+LOOP 
CONSTRUCT IS ONLY USED WITHIN »:« (COLON) DEFINITIONS. 
( I 2 3 A +LOOP 12 3) 
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IF 

STARTS AN IF/THEN CONDITIONAL BRANCH. THE IF WORD, WHEN EXECUTED, TESTS 
(AND REMOVES! THE CURRENT, NORMAL STACK VALUE. IF THE VALUE IS NOT 
EQUAL TO ZERO, THEN THE CLAUSE IMMEDIATELY FOLLOWING THE IF IS 
EXECUTED. IF THE VALUE IS ZERO, THEN THE CLAUSE FOLLOWING THE ELSE 
IS EXECUTED. IF THE ELSE IS OMITTEO, THEN CONTROL IS GIVEN TO THE 
CLAUSE FOLLOWING THE THEN. THEN IS ALWAYS REQUIRED WITH THE IF 
WORD. IF CAN ONLY BE USED WITHIN (COLON) DEFINITIONS. 

( I 2 3 A IF 12 3 1 

FLSE 

INDICATES THE BEGINNING OF A FALSE ( EQUAL TO ZERO! CLAUSE IN AN 
IF/ELSE/THEN CONSTRUCT. ELSE IS ONLY USED WITHIN " : " (COLON) 
DEFINITIONS, AND ONLY WITH IF. ITS USE WITH IF IS OPTIONAL. 
(STACK IS UN-AFFECTED! 

THEN 

TERMINATES THE I F /THEN CONSTRUCT. WORDS FOLLOWING THEN ARE EXECUTED 
WITHOUT RESPECT TO THE PRECEEDING IF CONDITIONAL TEST. THEN IS ONLY 
USED WITHIN (COLON! DEFINITIONS, AND ONLY WITH IF. IF CANNOT BE 

USED WITHOUT A TERMINATING THEN. IF A WORD IS DEFINED USING IF 
WITHOUT THEN, RESULTS WILL BE UN-PREDICTABLE. 
(STACK IS UN-AFFECTED! 

LEAVE 

SETS THE INDEX IN A LOOP TO THE FINAL VALUE OF THE LOOP, SO THAT THE 
LOOP CAN BE TERMINATED SOONER. (STACK IS UN-AFFECTED! 
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ADDRESS OPERATORS. 



a 

USES THE CURRENT STACK VALUE AS AN 
AT THAT ADDRESS ON THE STACK. 
REPLACED BY ITS VALUE. (1 2 



ADDRESS? AND PLACES THE 16-BIT VALUE 
THE ADDRESS THAT WAS ON THE STACK IS 
3 4 3 12 3 4) 



ca 

USES THE CURRENT STACK VALUE AS AN ADORESS AND PLACES THE 8-BIT LSB OF 
THE 16-BIT VALUE AT THAT ADDRESS ON THE STACK. THE ADDRESS THAT WAS 
OH THE STACK IS REPLACED BY THE 8-BIT VALUE. 
(1234 C3 1234) 

I 

USES THE CURRENT STACK VALUE AS AN ADDRESS ANO STORES THE SECOND 
(16-BIT) STACK VALUE AT THAT ADDRESS. (12 3 4 \ 12) 



USES THE CURRENT STACK VALUE AS AN ADDRESS AND STORES THE (8-BIT) LSB OF 
THE SECOND STACK VALUE AT THAT ADDRESS. (12 3 4 Cj 12) 

+1 

USES THE CURRENT STACK VALUE AS AN ADDRESS. THE VALUE AT THAT ADDRESS IS 
REPLACED BY THE SUM OF ITSELF AND THE SECONO STACK VALUE. BOTH THE 
ADDRESS AND THE ADDEND ARE REMOVED FROM THE STACK. 
( 1 2 3 4 12) 

J 

USES THE CURRENT STACK VALUE AS AN ADDRESS. THE VALUE AT 
REPLACED BY THE DIFFERENCE BETWEEN ITSELF AND THE 
TOP OF THE STACK. BOTH ENTRIES ON TOP OF THE STACK 
(12 3 4 -J 12) 



THAT ADORESS IS 
SECOND VALUE ON 
ARE REMOVED. 
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LOGICAL OPERATORS. 



AND 

PERFORMS A LOGICAL "AND " WITH THE TOP TWO STACK VALUES. THE TWO VALUES 
ARE REPLACED, ON THE STACK, BY THE RESULT, 
(12 3 4 AND 12 3) 

OR 

PERFORMS A LOGICAL "OR " WITH THE TOP TWO STACK VALUES. THE TWO VALUES 
ARE REPLACED, ON. THE STACK, BY THE RESULT, 
112 3 4 OR 12 3) 

XOR 

PERFORMS A LOGICAL "EXCLUSIVE OR" WITH THE TOP TWO STACK VALUES- THE TWO 
VALUES ARE REPLACED, ON THE STACK, BY THE RESULT, 
( 1 2 3 4 XOR 12 3) 

SWAB 

EXCHANGES THE L SB WITH THE MSB OF THE CURRENT, STACK VALUE. 
( 1 2 3 4 SWAB 1 2 3 4 ) 

COM 

PERFORMS A l'S COMPLEMENT WITH THE VALUE ON THE TOP OF THE STACK. THE 
COMPLEMENTED VALUE IS SUBSTITUTED WITH THE ORIGINAL VALJE. 
(12 3 4 COM 12 3 4) 



NOR 

PERFORMS A LOGICAL "NOR" WITH THE TOP TWO STACK VALUES. THE TWO VALUES 
ARE REPLACED, ON THE STACK, BY THE RESULT. 
(12 3 4 NOR 12 3 4) 

NAND 

PERFORMS A LOGICAL "NAND" WITH THE TOP TWO STACK VALUES. THE TWO VALUES 
ARE REPLACED, ON THE STACK, BY THE RESULT. 
(12 3 4 NAND 12 3 4) 
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TEST OPERATORS, 



0* 

TESTS THE CURRENT STACK VALUE FOR ZERO. IF THE VALUE IS ZERO, IT IS 
REPLACED ON THE STACK WITH THE VALUE ONE (1). A NON-ZERO VALUE IS 
REPLACED WITH THE VALUE ZERO. (12 3 4 0=« 1 2 3 41 

NOT 

IDENTICAL TO 0« C ABOVE 1 . (12 3 4 NOT 1 2 3 41 

0< 

TESTS THE CURRENT STACK VALUE FOR NEGATIVE. IF THE VALUE IS NEGATIVE, IT 
IS REPLACED ON THE STACK WITH THE VALUE CNE (II. A POSITIVE (OR 
ZERO) VALUE IS REPLACEO BY THE VALUE ZERO, 
(1234 0< 123 4) 



TESTS THE TOP TWO STACK VALUES FOR EQUALITY. IF THEY ARE EQUAL, BOTH 
VALUES ARE REPLACED BY THE VALUE ONE (I). OTHERWISE, BOTH VALUES 
ARE REPLACED BY THE VALUE ZERO. (12 3 4 » 12 3) 

> 

TESTS THE SECOND STACK VALUE FOR GREATER THAN THE TOP STACK VALUE. A 
SIGNED COMPARISON IS USED. IF THE SECOND STACK VALUE IS GREATER, 
BOTH VALUES ARE REPLACED BY THE VALUE ONE (1). OTHERWISE, BOTH 
VALUES ARE REPLACED BY THE VALUE ZERO. 
(12 3 4 > 12 3) 

< 

TESTS THE SECOND STACK VALUE FOR LESS THAN THE TOP STACK VALUE. A 
SIGNED COMPARISON IS USED. IF THE SECOND STACK VALUE IS LESS, BOTH 
- VALUES ARE REPLACED BY THE VALUE ONE (1), OTHERWISE, BOTH VALUES 
ARE REPLACED BY THE VALUE ZERO. (12 3 4 < 12 3) 

M IN 

COMPARES THE TOP TWO STACK VALUES AND KEEPS ONLY THE SMALLER VALUE. THE 
GREATER VALUE (OR TOP VALUE IF EQUAL) IS REMOVED FROM THE STACK. A 
SIGNED COMPARISON IS USED. 
(12 3 4 MIN 12 3) 

MAX 

COMPARES THE TOP TWO STACK VALUES AND KEEPS ONLY THE LARGER VALUE. THE 
SMALLER VALUE (OR TOP VALUE IF EQUAL) IS REMOVEO FROM THE STACK. A 
SIGNED COMPARISON IS USED. 
(12 3 4 MAX 12 3) 
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ARITHMETIC 



OPERATORS. 



ADDS THE 
THE IR 



TOP TWO STACK VALUES AND REPLACES THEM, ON THE STACK, WITH 
SUM* (12 3 4 ♦ 1 2 31 



1 + 

INCREMENTS 



THE TOP STACK VALUE BY 1. 



(12 3 4 



12 3 4) 



SUBTRACTS THE TOP STACK VALUE FROM THE SECOND STACK VALUE AND REPLACES 
THEM, ON THE STACK, WITH THEIR DIFFERENCE. 
(12 3 4 - 12 3) 



MULTIPLIES THE TOP TWO STACK VALUES AND REPLACES THEM, ON THE STACK, 
WITH THEIR 16-BIT PRODUCT. THE MULTIPLIER MUST BE LESS THAN 128. 
(1234 * 12 3) 

2* 

DOUBLES THE TOP STACK VALUE. (12 3 4 2* 1 2 3 41 



DIVIDES THE SECOND (16-BIT) STACK VALUE BY THE TOP (8-BIT) STACK VALUE. 
THE SECOND STACK VALUE (DIVIDEND) IS REPLACED BY THE (16-BIT) 
QUOTIENT. THE TOP STACK VALUE (DIVISOR) IS REPLACED BY THE (8-BIT) 
REMAINDER. (12 3 4 /MOD 12 3 4) 



EXACTLY THE SAME AS A /MOD. EXCEPT THAT THE QUOTIENT IS THE ONLY VALUE 
THAT IS RETURNED ON TOP OF THE STACK. (12 3 4 / 12 3) 

PERFORMS THE ALGEBRAIC EXPRESSION ((A * B) / C). THE VALUE ON TOP OF THE 
STACK IS THE RESULT OF EVALUATING THE EXPRESSION. 
(12 3 4 5 */ 12 3) 

PERFORMS THE ALGEBRAIC EXPRESSION ((A * B) /MOD C) . THE VALJE ON TOP OF 
THE STACK IS THE REMAINDER, WHILE THE SECONO VALUE ON THE STACK IS 
THE QUOTIENT. (12 3 4 5 */MOD 12 3 4) 

M INUS 

CHANGES THE SIGN OF THE TOP STACK VALUE. 
( 1 2 3 4^ MINUS 1 2 3 4) 



Q D O 

REPLACES THE TOP STACK VALUE WITH ITS ABSOLUTE VALUE* (NEGATIVE VALUES 
A3 E MADE POSITIVE; POSITIVE VALUES ARE LEFT ALONE). 
(12 3 4 ABS 12 3 4) 
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DECIMAL 

CHANGES THE RADIX (OR BASE! TO DECI MAU ARITHMETIC OPERATIONS AND ASCII 
CONVERSIONS ARE AFFECTED BY THE VALUE OF THE RADIX, 
(STACK IS UN-AFFECTED } 



CHANGES THE RADIX (OR BA SE I TO HEXADECIMAL. ARITHMETIC OPERATIONS AND 
ASCII CONVERSIONS ARE AFFECTED BY THE VALUE OF THE RADIX. 
(STACK IS UN-AFFEC TED I 

OCTAL 

CHANGES THE RADIX (OR BASE) TO OCTAL. ARITHMETIC OPERATIONS AND ASCII 
CONVERSIONS ARE AFFECTEO BY THE VALUE OF THE RADIX. 
(STACK IS UN-AFFECTED) 
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MISCELLANEOUS WORDS, 



THE DICTIONARY IS SEARCHED FOR THE WORD THAT IMMEDIATELY FOLLOWS THE ' 
( QUOTE) • WHEN THAT WORD IS FOUND, THE ADDRESS OF THE EXECUTABLE 
MACHINE CODE (FOLLOWING ITS HEADER) IS PLACED ON THE STACK. 
( 1 2 3 4 1 WORD 1 2 3 4 5 ) 

( 

BEGINS A STRING OF TEXT THAT WILL BE SKIPPED BY THE 6502FORTH 
INTERPRETER, THE STRING BEING IGNORED MUST BE TERMINATED BY A H ) " . 
THE FIRST BLANK FOLLOWING THE "(" IS A 6502FORTH REQUIREMENT AND 
CANNOT BE OMITTED. (STACK IS UN-AFFECTED) 

BYE 

RETURNS CONTROL TO THE MACHINE'S MONITOR. 



WILL TAKE THE LEAST SIGNIFICANT BYTE ( LSB) OFF THE STACK AND PLACE IT IN 
THE A REGISTER. (12 3 4 ST>A I 2 3) 



A>ST 

WILL PLACE THE VALUE CONTAINED IN THE A-REGISTER ON TOP OF THE NORMAL 
STACK. (12 3 4 A>ST 12 3 4 5) 

SP= 

WILL PLACE THE VALUE CONTAINED IN THE A REGISTER AT THE ADDRESS 
SPECIFIED BY THE STACK POINTER. (STACK IS UN-AFFECTED) 

WILL E STORE THE VALUE CONTAINED IN THE A REGISTER AT THE NEXT AVAILABLE 
POSITION IN THE DICTIONARY. (STACK IS UN-AFFECTED) 



NORMAL 

WILL TURN OFF FLASHING OR INVERSE VIOEC MODE. 
(STACK IS UN-AFFECTED) 



INVERSE 

WILL SET THE VIDEO OUTPUT TO BLACK ON WHITE. 
(STACK IS UN-AFFECTED) 

FLASH 

WILL SET THE VIDEO OUTPUT TO FLASHING. 
(STACK IS UN-AFFECTED) 



WILL TYPE THE STRING FOLLOWING THE "PRINT" WORD. THE STRING IS ENCLDSED 
WITHIN A PAIR OF UNIQUE DELIMITERS. THE FIRST NON-BLANK CHARACTER 
AFTER THE "PRINT" WORD DEFINES THE DELIMITER. THIS IS AN IMMEDIATE 
WORD AND MUST BE USED INSIDE A COLON ":" DEFINITION, 
(STACK IS UN-AFFECTED) 



D$ 

WILL OUTPUT A CTL-D. (STACK IS UN-AFFECTED) 
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SIZE 

WILL TYPE THE SIZE OF THE 6502FORTH SYSTEM. 
(STACK IS UN-AFFECTED) 



XAM 

TYPES 128 BYTES OF MEMORY STARTING AT THE ADDRESS SPECIFIED BY THE 

NUMBER ON TDP OF THE STACK. 

( 1 2 3 A XAM 12 3) 



L 

DISASSEMBLES 20 INSTRUCTIONS INTO THE 6502 ASSEMBLY MNEMONIC CODE, 
STARTING AT THE ADDRESS SPECIFIED BY THE NUMBER ON TOP OF THE 
STACK. 

(1234 L 123) 

C.HEX 

WILL TYPE THE LOW ORDER BYTE ON TCP OF THE STACK AS TWO HEXADECIMAL 
DIGITS. 

(12 3 4 C.HEX 12 3) 



HAD 

HEXADECIMAL ASCII DUMP. SIMILAR TO "XAM" WORD WITH ASCII EQUIVALENTS 

PUNTED UNDER THE HEX VALUES. 

(12 3 4 HAD 12 3) 
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DISK COMMAND EXTENSION, 



THE FOLLOWING GROUP OF WORDS ARE AVAILABLE TO USERS OF THE 6502FORTH 
SYSTEM WITH THE DISK COMMAND EXTENSION MODULES. NOTE THAT IF A DISK 
ERROR OCCURS, THEN THE DOS EXITS TO INTEGER BASIC, WHICH MAY DESTROY 
SOME OF THE 6502FORTH POINTERS IN PAGE ZERO, IF THIS OCCURS, THE ONLY 
SOLUTION IS TO RE-ENTER 6502FORTH AT THE HARDSTART ADDRESS. 

/ 

DOS 

ENABLE I/O VECTORS FOR THE DOS. 
f STACK IS UN-AFFECTED) 

UNDOS 

DISABLES THE I/O VECTORS FOR DOS. 
(STACK IS UN-AFFEC TED ) 

OLOAD 

WILL LOAD THE SCREEN THAT IS SPECIFIED BY THE NUMBER ON TOP OF THE STACK 
INTO BUFFER 0, 
(12 3 4 OLOAD 12 3) 

1LOAD 

WILL LOAD THE SCREEN THAT IS SPECIFIED BY THE NUMBER ON TOP OF THE STACK 
INTO BUFFER 1. 
( 1 2 3 A 1LOAD 12 3) 



OSAVE 

WILL SAVE THE SCREEN THAT IS SPECIFIED BY THE NUMBER ON TOP OF THE STACK 
F30M BUFFER 0. 
(12 3 4 OSAVE 12 3) 

1SAVE 

WILL SAVE THE SCREEN THAT IS SPECIFIED BY THE NUMBER ON TOP OF THE STACK 
FROM BUFFER 1. 
(1234 1SAVE 123) 

FSAVE 

WILL UPDATE THE 6502F0RTH SYSTEM POINTERS TO INCLUDE NEW ENTRIES IN THE 
DICTIONARY AND WILL PROCEED TO SAVE THE ENTIRE SYSTEM TO DISK. 
(STACK IS UN-AFFECTED) 

LOCK 

WILL LOCK THE SCREEN THAT IS SPECIFIED BY THE NUMBER ON TOP OF THE 
STACK. 

(12 3 4 LOCK 12 3) 



UNLOCK 

WILL UNLOCK THE SCREEN THAT IS SPECIFIED BY THE NUMBER ON TOP OF THE 
STACK, 

112 3 4 UNLOCK 12 3) 



DELETE 

WILL DELETE THE SCREEN THAT IS SPECIFIED BY THE NUMBER ON TOP OF THE 
STACK. 

112 3 4 DELETE 12 3) 
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CATALOG 

WILL PERFORM A DISK CATALOG FUNCTION. 
ISTACK IS UN-AFFEC TED ) 



SLOT 

A VARIABLE THAT INDICATES THE SLOT NUMBER OF THE CONTROLLER THAT THE 
DISK UNIT IS ATTACHED TO. NOTE SLOT IS PRE- I NI T I AL IZED TO SIX (6». 



DRIVE 

A VARIABLE THAT INDICATES THE DISK DRIVE NUMBER POSITION ATTACHED TO THE 
CONTROLLER. NOTE THAT DRIVE IS PRE- INITIALIZED TO ONE CI). 
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12. 6502F0RTH ASSEMBLER 

A LARGE NUMBER OF THE WORDS IN THE 6502F0RTH DICTIONARY CLOSELY RESEMBLE 
THE 6502 MNEMONIC INSTRUCTION SET. THEY ARE USED TO GENERATE 6502 
MACHINE CODE AND ADD IT TO THE DICTIONARY. FOR THIS REASON, THEY NEED TO 
BE EXECUTEO IMMEDIATELY (I.E. DURING THE COMPILATION OF SOME OTHER 
WORD). TO CAUSE THEM TO BE EXECUTED IMMEDIATELY, THEY USUALLY FOLLOW THE 
•»*" (U?-ARROW). 

ALTHOUGH THE MNEMONICS ARE ALMOST THE SAME, THE SYNTAX OF THE 
INSTRUCTIONS IS QUITE DIFFERENT. THE TRADITIONAL "OPERATOR FOLLOWED BY 
OPERAND" FORMAT HAS BEEN REVERSED TO ACCOMODATE THE 6502F0RTH SYNTAX. 
THIS ALLOWS THE OPERANDS TO BE PUSHED ONTO THE STACK AND THEN OPERATED 
UPON BY THE MNOMONIC OP CODES. THE USE OF THE STACK ALSO REQUIRES THAT 
THE 6502F0RTH ASSEMBLER WORDS BE INFORMED OF THE DESIRED ADDRESSING MODE 
OF" THOSE INSTRUCTIONS THAT CONTAIN ADDRESSES. THE 6502F0RTH ASSEMBLER 
FORMAT IS AS FOLLOWS: 

OPERAND MNEMONIC ADDRESSING MODE 

MOST OF THE 6502 MNEMONIC INSTRUCTION SET HAS BEEN I NCLU JOED IIN^ T HE 
6502F0*TH DICTIONARY. ALL MNEMONICS ARE TERMINATED BY A COMMA SO THAT 
VALID HEX NUMBERS OR OTHER VALID 6502FCRTH WORDS (E.G. BCC ADO ARE NOT 
CONFUSED. 

FOLLOWING IS A LIST OF ALL MNEMONIC OP CODES AVAILABLE IN THE 6502FORTH 
DICTIONARY. THE * (ASTERISK) FOLLOWING SOME WORDS IS NOT PART OF THE 
WORD. IT INDICATES WHICH OF THE WORDS REQUIRES AN ADDRESSING MODE 
IDENTIFIER. 

THE LIST IS DIVIDED INTO THREE SECTIONS. THE WORDS IN THE FIRST SECTION 
REQUIRE AN OPERAND ON THE STACK AND AN ADDRESSING MODE IDENTIFIER 
FOLLOWING THE WORD. THIS GROUP OF WORDS WILL ADD EITHER 2 OR 3 BYTES OF 
MACHINE CODE (DEPENDING ON THE ADDRESSING MODE AND INSTRUCTION) TO THE 
DICTIONARY. 

THE SECOND GROUP OF WORDS ALL IMPLY THE RELATIVE ADDRESSING MODE, SO NO 
MODE IDENTIFIER IS USED. THIS GROUP OF WORDS ALSO FINDS ITS OPERANOS ON 
THE STACK. TWO (2) BYTES OF MACHINE CODE WILL BE ADDED TO THE DICTIONARY 
BY ANY OF THESE WORDS. 

THE THIRO GROUP OF WORDS ARE IMPLICIT, ANO REQUIRE NEITHER AN OPERAND 
NOR AN ADDRESSING MODE IDENTIFIER. EACH OF THESE WORDS WILL ADD I BYTE 
OF MACHINE CODE TO THE DICTIONARY WHEN EXECUTEO. 
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GROUP I (FORMATS 

ADC, * AND, * 

DEC, * EOR, * 

LDY, ♦ LSR, * 

SBC, * STA , * 



OPERANO MNEMONIC MODE) 

ASL, * CMP, * 

INC, * LDA, * 

CRA, * ROL, * 
STY, * 



GROUP 2 (FORMAT: OPERAND MNEMONIC I 

BCC, BCS, BEQ, BM I, 

BNE, BPL, JMP f JSR, 



GROUP 3 (FORMAT: MNEMONIC) 



CLC, DEX, DEY, INX, 

INY, RTS, SEC, PHA, 

PLA, SED, CLD, SEI, 

TSX, TXS, CLI, RTI, 

PHP, CLV, NOP, TAX, 

TXA, TAY, TYA, 



* THE SIX AODRESSING MODE IDENTIFIER WORD ARE: 
# IMMEDIATE 

3# ABSOLUTE ADDRESSING. ZERO PAGE ADDRESSING IS 
USED IF THE ADDRESS IS IN PAGE ZERO. 

#A ACCUMULATOR. 

X* ABSOLUTE X INDEXED. WILL NOT WORK FOR ADDRESS 
REFERENCES TO PAGE ZERO. 

X) INDEXED INDIRECT. 

)Y INDIRECT INDEXED. 

IT IS THE RESPONSIBILITY OF THE USER TO INSURE THAT ONLY VALID 
ADDRESSING MODES ARE USED. 
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SYSTEM ERROR CODES 



00 EXECUTION OF AN ABORT SEQUENCE 

01 NORMAL STACK OVERFLOW 

02 NORMAL STACK UNDERFLOW 

03 RETURN STACK OVERFLOW 

04 RETURN STACK UNDERFLOW 

05 DICTIONARY OVERFLOW 

06 INPUT BUFFER FULL 

07 WRONG STATUS MODE 

08 WORD NOT IN DICTIONARY ...OR... NUMBER IN WRONG BASE 

09 ...RESERVED... 

10 MULTIPLY OVERFLOW 

11 MULTIPLIER GREATER THAN 128 

12 ...RESERVED... 

13 ...RESERVED... 

14 • • * RE SER VEO. • • 

15 ...RESERVED... 

16 ...RESERVED... 

17 ...RESERVED... 

18 • . .RE SER VEO. • . 

19 ...RESERVED... 

20 INVALID BUFFER NUMBER 

21 NO LENGTH SPECIFIED FOR MOVE OPERATION 

22 NEGATIVE LINE NUMBER 

23 .. .RESERVED... 

24 ...RESERVED... 

25 ...RESERVEO... 
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SYSTEM CONFIGURATION 

APPLE II COMPUTER SYSTEM 
16K BYTES OF RAM MEMORY 
ONE SOURCE INPUT DEVICE < KEYBOARD! 
ONE LIST DEVICE (CRT VIDEO DISPLAY) 
ONE STORAGE DEVICE CCASSETTE) 

SYSTEM LOADING INSTRUCTIONS 

1. ASSURE THAT THE SYSTEM IS IN THE MONITOR STATE. THE ASTERISK «*' 
SHOULD BE THE SYSTEM PROMPT CHARACTER. 

2. PLACE APPLE FOR TH SYSTEM CASSETTE ON TAPE UNIT. 

3. TYPE: 100.115R100G 

4. TU*N CASSETTE TAPE ON PLAY AND QUEUE ON SOUND. 

5. DEPRESS THE "RETURN* KEY WHEN QUEUED ON SOUND. 

6. APPL EFORTH SYSTEM WILL BE AUTOMATICALLY LOADED AND EXECUTED. 

SYSTEM INITIALIZATION ADDRESSES 

0800 HARDSTART ADDRESS 

0803 SOFTSTART ADDRESS 

0806 MONITOR INPUT ROUTINE 

0809 MONITOR OUTPUT ROUTINE 

080C HOME CURSER £ CLEAR CRT 

080F CARRIAGE RETURN £ LINE FEED 

0812 READ FROM CASSETTE 

0815 WRITE TO CASSETTE 

0818 RETURN TO MONITOR OR DOS 

USER SELECTABLE PARAMETERS 

0833 FIRST AVAILABLE BYTE OF DICTIONARY 

0835 ADDRESS OF LAST HEADER IN DICTIONARY 

0837 NORMAL STACK LOCATION 

0839 RETURN STACK LOCATION 

083B BUFFER LOCATION 

083D BUFFER 1 LOCATION 

083F INPUT BUFFER LOCATION 

0841 LOGICAL DICTIONARY END 
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PAGE ZERO USAGE C SIGNIFICANCE 



Bl - BB WORK AREAS 

DO BASE ADDRESS OF NORMAL STACK 

D2 BASE ADDRESS OF RETURN STACK 

04 BASE ADDRESS OF INPUT BUFFER 

D6 NEXT AVAILABLE BYTE IN DICTIONARY 

08 ADDRESS OF LAST HEADER IN DICTIONARY 

DA ADDRESS OF ACTIVE PARSING I/O BUFFER 

DC BASE ADDRESS OF BUFFER 

DE BASE ADDRESS OF BUFFER 1 

FO NORMAL STACK POINTER 

El RETURN STACK POINTER 

F3 BASE OR RADIX 

E4 SYSTEM STATUS 

E5 DELIMITER 

E6 SIGN 

^7 IMMEDIATE WORD INDICATOR 

E8 Y REGISTER SAVE 

E9 X REGISTER SAVE 

EA . ..RESER VED. . . 

EB ...RESERVED... 

EC ...RESERVED... 

ED - FO WORD BUILD AREA 

Fl ERROR BYTE INDICATOR 

P2 - FF , ..RESERVED... 
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SYSTEM MEMORY MAP 



PAGE SYSTEM POINTERS 



PAGE 1 MACHINE STACK 



PAGE 2 KEYBOARD INPUT BUFFER 



PAGE 3 RESERVED FOR MONITOR 



PAGE 4 

THRU CRT MEMORY MAPPED BUFFER 
PAGE 7 



APPLEFORTH NUCLEUS 



SYSTEM DICTIONARY 



USER DICTIONARY 



I 

.1 

I 
I 

V 



I 

.1 

I 
I 

V 



I 

.1. 

I 

I 

V 



I 

L 

I 

I 

V 



I 

I. 
I 

I 

V 



I 

.1. 
I 
I 

V 



♦ $0000 
$0100 
$0200 
$0300 
$0400 



$0800 



16K 



48K 
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14. EXAMPLES. 

The following series of examples assume that the 6502F0RTH System 1s 
operating 1n Decimal mode or Base 10. 

EXAMPLE 1. 

DECIMAL 

( EX 1: ASCII CHARACTER SET IN ASCENDING SEQUENCE ) 
: EX1 64 DO 32 I + ECHO SPACE LOOP ; 
CR EX1 

EXAMPLE 2. 

( EX 2: ASCII CHARACTER SET IN DESCENDING SEQUENCE ) 
: EX2 64 DO 95 I - ECHO SPACE LOOP ; 
CR EX2 

EXAMPLE 3. 

( EX 3: COUNT FROM 1 TO 100 IN BASE 10 ) 
: EX3 101 1 DO I . LOOP ; 
CR EX3 

1 

EXAMPLE 4. 

( EX 4: COMPOSE A LINE OF FORTY DASHES ) 
: EX4 40 DO 45 ECHO L68P ; 
CR EX4 

EXAMPLE 5. 

( EX 5: COMPOSE TWO POSTS WITH SPACES IN BETWEEN ) 
: EX 5 73 ECHO 38 DO 32 ECHO LOOP 73 ECHO ; 
CR EX5 
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EXAMPLE 6. 

( EX 6: COMPOSE A BOX USING WORDS OF EXAMPLE 4 AND 5 ) 

: EX5 PAGE EX4 20 DO EX5 LOOP EX4 ; 

EX6 

EXAMPLE 7. 

( EX 7: DISPLAY THE ENTIRE CHARACTER SET ) 

: CHRS PAGE 15 VTAB 1 TAB 
10 DO 

I 10 * I LRMAP 

OVER I + OVER I + C! 
LOOP 
DROP DROP 
LOOP ; 

CHRS 
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